home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / select6.fr_ / select6.fr
Text File  |  1995-07-04  |  3KB  |  95 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "OUTER JOINer"
  5.    ClientHeight    =   3210
  6.    ClientLeft      =   2280
  7.    ClientTop       =   1935
  8.    ClientWidth     =   6015
  9.    Height          =   3615
  10.    Left            =   2220
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3210
  13.    ScaleWidth      =   6015
  14.    Top             =   1590
  15.    Width           =   6135
  16.    Begin VB.CommandButton cmdClose 
  17.       Caption         =   "&Close"
  18.       Default         =   -1  'True
  19.       BeginProperty Font 
  20.          name            =   "MS Sans Serif"
  21.          charset         =   0
  22.          weight          =   700
  23.          size            =   8.25
  24.          underline       =   0   'False
  25.          italic          =   0   'False
  26.          strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   555
  29.       Left            =   2400
  30.       TabIndex        =   1
  31.       Top             =   2280
  32.       Width           =   1335
  33.    End
  34.    Begin VB.Data Data1 
  35.       Caption         =   "Data1"
  36.       Connect         =   "Access"
  37.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  38.       Exclusive       =   0   'False
  39.       Height          =   300
  40.       Left            =   240
  41.       Options         =   0
  42.       ReadOnly        =   0   'False
  43.       RecordsetType   =   2  'Snapshot
  44.       RecordSource    =   $"SELECT6.frx":0000
  45.       Top             =   2340
  46.       Visible         =   0   'False
  47.       Width           =   2115
  48.    End
  49.    Begin VB.Label Label1 
  50.       AutoSize        =   -1  'True
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "Publishers without Publisher Comment records:"
  53.       BeginProperty Font 
  54.          name            =   "MS Sans Serif"
  55.          charset         =   0
  56.          weight          =   700
  57.          size            =   8.25
  58.          underline       =   0   'False
  59.          italic          =   0   'False
  60.          strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   195
  63.       Left            =   420
  64.       TabIndex        =   2
  65.       Top             =   300
  66.       Width           =   3975
  67.    End
  68.    Begin MSDBCtls.DBList dblPublishers 
  69.       Bindings        =   "SELECT6.frx":00C9
  70.       Height          =   1230
  71.       Left            =   420
  72.       TabIndex        =   0
  73.       Top             =   600
  74.       Width           =   5175
  75.       _Version        =   65536
  76.       _ExtentX        =   9128
  77.       _ExtentY        =   2170
  78.       _StockProps     =   77
  79.       BackColor       =   -2147483643
  80.       MatchEntry      =   1
  81.       ListField       =   "Company Name"
  82.       BoundColumn     =   "Company Name"
  83.       MouseIcon       =   "SELECT6.frx":00D7
  84.    End
  85. End
  86. Attribute VB_Name = "Form1"
  87. Attribute VB_Creatable = False
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90.  
  91. Private Sub cmdClose_Click()
  92.     End
  93. End Sub
  94.  
  95.